Public Class frmOpcaoMarcador
    Public rotaAtual As String
    Public confirm As Boolean = False

    Private Sub btOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOk.Click
        confirm = True
        Close()
    End Sub

    Private Sub btCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancel.Click
        confirm = False
        Close()
    End Sub
End Class